1 . 1 08653500200 1 08653500000G+563456042B0G06B7Bb 27G532 108653500200 1023456000678 
8 8765+456007008531 

5 4 1=0; 5 1=0; BC=160; FC=4; NT=0; GOTO 10 

7 FOR Q=1T 0 150; NEXT Q; RETURN 

8 BOX B, C, 5, 3, 2; BOX 0, D, 5, 3, 2; BOX -B , C, 5, 3 , 2; BOX B, C, 5 , 3, @( 0 1 ; BOX 0, B, 5, 3, @( 1 1 ; 
BOX -B , C , 5 , 3 , i>< 2 1 ; @( P+3 )=@( P+3 ) + ( @(31=11 

3 CY=-26 ; CX=44 ; PRINT "UIS" , #2 , @( 4 1 ; CX=38; PRINT ”H0ME“ , #2, @< 5 1 ; RETURN 
10 CLERR ; 5=2.1 ;X=-3; FOR R=-35TO -6;X=X+2;B0X X, R , 5, 1 , 1 ; BOX -X, R, S, 1 , 1 ; NEXT R;BOX 
58, -4, S, 2, 1; BOX -58, -4, S, 2, 1 ; FOR R=-3T0 26 
20 BOX X , R, S , 1, 1 ; BOX -X , R , S , 1 , 1 ; X=X-2 ; NEXT R;R=-32;LINE 0, -34,0;LINE 58,C,2;L.INE 
0,25, 2; LINE ~58,C,2;LINE 0,-34,2;BOX 0,R, 11,3,1 
30 BOX 0, -34,3, l,2;BOX 0, R, 5 , 3, 2; BOX 0, -35, 1 , 1 , 2; BOX 0, -37, 15, 3, 1 ; BOX -B,C,7,5,2 
;BOX B, C, 7 , 5, 2; BOX 0,D,7,5,2 

40 T=? ; FOR Z=-24TO -4STEP T ; BOX 0,Z,T, 13, 1 ; T=T-2; NEXT Z;BOX 0, 0, 8 , 5, 1 ; BOX 0,0,7, 
7,1 

50 CX=-S; PRINT "*S*D*T*H*" ; 1=0 

60 1=1+1 ; CY=-24; CX=-77 ; PRINT ”ING ”,#i,I;FOR P=1T0 2;F0R Z=0TO 3; @( Z 1=2; NEXT Z;C 
Y=-40;CX=-77; IF P=1PRINT “UIS",; GOTO 70 
65 PRINT " H0ME “ , 

70 PRINT " UP “ , ; GOSUB 8;F0R O=0TO 2 ; 5=0; CY=-32; CX=-77; PRINT "0UTS",#2,O 
72 IF I=7IF P=2IF O=0GOSUB 800 

75 CY=32;CX=-77; PRINT "STRIKE" , #2, S, ” 20 1=0 

80 IF TRC P )GOTO 400 
82 IF &( 18-P)=0GOTO 80 

88 FOR CX=27T0 -21STEP -18; PRINT "t " , ; IF TR(P)=0NEXT CX;GOTO 400 
90 H=CX- 18; H=C H=15 )b4+C H=3 )b3+( H=-8 )b2+( H=-21 1 ; IF H=0GOTO 500 

95 GOSUB 700; IF RNB C 3 1=1CY=32; CX=-77; PRINT "FLY BRLL CRUGHT !"; GOSUB 7;GQTG 500 
97 IF H=4&( 21 1=15; &( 19 1=20; &( 20 1=150; FOR Q=1TG 893; NEXT Q; &( 20 )=0; &( 21 )=0; &( 18 1 = 


100 FOR Z=1T0 H; FOR Y=3T0 1STEP - 1 ; @C Y 1=@( Y- 1 1 ; NEXT Y ; @( 0 1=2- ( Z=1 1 ; GOSUB 8;NT=5; 
MU=B4 ; NT=0 ; NEXT Z 

120 IF I >8IF P=2IF @(41<@(51G0TG 600 
130 S=0; GOTO 75 

400 PRINT * " ;S=S+1;&( 22 )=-!;&( 16)=S8;&( 17)=71;&( 181=85;GQSUB 7 

410 IF S<3&( 22 1=0; GOTO 75 

500 &( 17)=71;&( 18)=85;&(221=-1;F0R Z=60TO 150; &( 16 )=Z; NEXT Z 
510 &( 22 )=0 

520 NEXT 0; IF I=9IF P=1IF @( 4 1<@( 5 1G0T0 600 

530 NT=1S; GOSUB 7; &( 20 1=128; FOR Z=-24573T0 -24562; MU=%( Z 1 ; NEXT Z;GOSUB 7;NT=0 
550 NEXT P; IF ( I<9 l + C @( 4 1=@C 5 1 1G0T0 60 
600 CY=0;CX=-24; PRINT "GRME 0UER 
610 STOP 

700 XY=0; FOR Z=0TO -30STEP -1;LINE 0,Z,3;NEXT Z 

710 NT=4 ; MU=8B ; NT=0 ; U=RNB ( 11 1 -6; X=0; GOSUB 7; &( 21 1=-1 ; &( 23 ) = -l ; &( 19 ) = 10-2bH; FOR 
Y=~26T 0 46STEP 4;X=X+U 

720 BOX X-U,Y-4, 1,1,3; BOX X, Y , 1 , 1 , 3; NEXT Y; &( 21 1=0; &( 23 1=0; &( 19 1=0 
798 RETURN 

800 CY=32;CX=-77; PRINT "7TH INNING STRETCH !"; GOSUB 7;NT=8;F0R Z=-24573T0 -24476&>r 

>LIST 800 X 

800 CY=32;CX=-77; PRINT "7TH INNING STRETCH ! “ ; GOSUB 7;NT=8;F0R Z=-24573T0 -2447$* ▼ 

> 7 # 


